home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / PICTURE / PIDEMO.EXE / PIDEMO.dxr / 00053.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  918 b   |  34 lines
  1. on exitFrame
  2.   puppetSprite(3, 1)
  3.   puppetSprite(4, 1)
  4.   puppetSprite(20, 1)
  5.   set the locH of sprite 20 to the mouseH
  6.   set the locV of sprite 20 to the mouseV
  7.   if sprite 20 intersects 2 then
  8.     set the visible of sprite 20 to 0
  9.   else
  10.     set the visible of sprite 20 to 1
  11.   end if
  12.   if the movieTime of sprite 2 < 4577 then
  13.     go(the frame)
  14.   else
  15.     if (the movieTime of sprite 2 > 4578) and (the castNum of sprite 3 = the number of member "resumenormal") then
  16.       go(the frame)
  17.     else
  18.       if (the movieTime of sprite 2 > 4578) and (the castNum of sprite 3 = the number of member "pausebox") then
  19.         set the visible of sprite 20 to 0
  20.         updateStage()
  21.         startTimer()
  22.         repeat while the timer < 30
  23.           nothing()
  24.         end repeat
  25.         unLoad()
  26.         puppetSprite(3, 0)
  27.         puppetSprite(4, 0)
  28.         exit
  29.         go(the frame + 1)
  30.       end if
  31.     end if
  32.   end if
  33. end
  34.